(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     61165,       1609]
NotebookOptionsPosition[     58594,       1543]
NotebookOutlinePosition[     58939,       1558]
CellTagsIndexPosition[     58896,       1555]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "4"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "6"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "8"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "8"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "6"}], "}"}], ",", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"5", ",", "7"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48726979990625*^9, 3.48726987584375*^9}, {
  3.487273675328125*^9, 3.4872737130625*^9}}],

Cell[BoxData[{
 RowBox[{"1", " ", "2"}], "\n", 
 RowBox[{"5", " ", "5"}], "\n", 
 RowBox[{"3", " ", "3", " ", "2"}], "\n", 
 RowBox[{"7", " ", "5", " ", "1"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "4"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "6"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "8"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "8"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "6"}], "}"}], ",", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48727542740625*^9, 3.487275433671875*^9}}],

Cell[BoxData[{
 RowBox[{"2", " ", "2"}], "\n", 
 RowBox[{"3", " ", "7", " ", "2"}], "\n", 
 RowBox[{"6", " ", "4", " ", "1"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "3"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "5"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "7"}], "}"}], ",", "1"}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"4", ",", "4"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.487278591390625*^9, 3.487278612109375*^9}, {
   3.487282787203125*^9, 3.4872828099375*^9}, 3.487282985421875*^9, {
   3.487283019984375*^9, 3.4872830278125*^9}, {3.4872831440625*^9, 
   3.4872832648125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", "1"}], "}"}], ","}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "3"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "5"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "7"}], "}"}], ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "7"}], "}"}], ",", "1"}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"4", ",", "4"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.487283430484375*^9, 3.487283433140625*^9}, {
  3.4872835145625*^9, 3.48728351853125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "2"}], "}"}], ",", "1"}], "}"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48728433765625*^9, 3.4872843934375*^9}, {
   3.487284439859375*^9, 3.487284451328125*^9}, {3.487284720796875*^9, 
   3.4872847800625*^9}, {3.487285101984375*^9, 3.48728517059375*^9}, 
   3.4872858291875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"100", ",", " ", "56"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"28", ",", "21"}], "}"}], ",", "21"}], "}"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"28", ",", "96"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48728433765625*^9, 3.4872843934375*^9}, {
   3.487284439859375*^9, 3.487284451328125*^9}, {3.487284720796875*^9, 
   3.4872847800625*^9}, {3.487285101984375*^9, 3.48728517059375*^9}, {
   3.48728525884375*^9, 3.48728527440625*^9}, {3.48728593715625*^9, 
   3.487285957546875*^9}, {3.487286017*^9, 3.487286057234375*^9}, 
   3.487286089390625*^9, {3.487286276015625*^9, 3.487286298328125*^9}, {
   3.48728660540625*^9, 3.487286617828125*^9}, {3.487286656078125*^9, 
   3.487286668234375*^9}, {3.487288443953125*^9, 3.48728847*^9}, {
   3.487289000515625*^9, 3.487289070734375*^9}, {3.487289105078125*^9, 
   3.48728911815625*^9}, {3.487289423234375*^9, 3.487289444578125*^9}}],

Cell[BoxData[{
 RowBox[{"4", " ", "5", " ", "200", " ", "45"}], "\n", 
 RowBox[{"15", " ", "20"}], "\n", 
 RowBox[{"45", " ", "20"}], "\n", 
 RowBox[{"64", " ", "20"}], "\n", 
 RowBox[{"125", " ", "20"}], "\n", 
 RowBox[{"8", " ", "20", " ", "3"}], "\n", 
 RowBox[{"31", " ", "20", " ", "8"}], "\n", 
 RowBox[{"56", " ", "20", " ", "1"}], "\n", 
 RowBox[{"92", " ", "20", " ", "5"}], "\n", 
 RowBox[{"150", " ", "20", " ", "10"}], "\n", 
 RowBox[{"0", " ", "0", " ", "0", " ", "0"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"500", ",", "500"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"250", ",", "250"}], "}"}], ",", "100"}], "}"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"150", ",", " ", "251"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48728593890625*^9, 3.487285939921875*^9}, {
  3.48728975790625*^9, 3.48728984696875*^9}, {3.48729067784375*^9, 
  3.48729081646875*^9}, {3.487290858515625*^9, 3.487290862796875*^9}, {
  3.48729090146875*^9, 3.487290913203125*^9}}],

Cell[BoxData[{
 RowBox[{"1", " ", "1", " ", "12", " ", "12"}], "\n", 
 RowBox[{"6", " ", "8"}], "\n", 
 RowBox[{"2", " ", "1", " ", "1"}], "\n", 
 RowBox[{"4", " ", "1", " ", "1"}], "\n", 
 RowBox[{"0", " ", "0", " ", "0", " ", "0"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"11545", ",", "11448"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1314", ",", "4516"}], "}"}], ",", "1135"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8542", ",", "8782"}], "}"}], ",", "2215"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8534", ",", "1552"}], "}"}], ",", "1418"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3333", ",", "7627"}], "}"}], ",", "2458"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7598", ",", "3473"}], "}"}], ",", "689"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3301", ",", "1303"}], "}"}], ",", "1154"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3673", ",", "2868"}], "}"}], ",", "427"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5663", ",", "9665"}], "}"}], ",", "557"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1445", ",", "9839"}], "}"}], ",", "365"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5353", ",", "2177"}], "}"}], ",", "872"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9640", ",", "6300"}], "}"}], ",", "436"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8478", ",", "4279"}], "}"}], ",", "475"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4540", ",", "3058"}], "}"}], ",", "283"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6201", ",", "6757"}], "}"}], ",", "486"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5586", ",", "4966"}], "}"}], ",", "835"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"10202", ",", "2157"}], "}"}], ",", "339"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2909", ",", "10054"}], "}"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8865", ",", "3308"}], "}"}], ",", "361"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3940", ",", "2529"}], "}"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8327", ",", "3447"}], "}"}], ",", "35"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4028", ",", "5007"}], "}"}], ",", "208"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4374", ",", "5266"}], "}"}], ",", "103"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8992", ",", "5988"}], "}"}], ",", "282"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6319", ",", "4168"}], "}"}], ",", "206"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4436", ",", "10116"}], "}"}], ",", "243"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6831", ",", "1531"}], "}"}], ",", "268"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5677", ",", "3795"}], "}"}], ",", "294"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6418", ",", "3566"}], "}"}], ",", "362"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2488", ",", "3687"}], "}"}], ",", "275"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6497", ",", "1926"}], "}"}], ",", "243"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5455", ",", "5818"}], "}"}], ",", "27"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2192", ",", "1836"}], "}"}], ",", "72"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6189", ",", "7803"}], "}"}], ",", "314"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7628", ",", "5326"}], "}"}], ",", "779"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6276", ",", "3934"}], "}"}], ",", "26"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4449", ",", "3549"}], "}"}], ",", "195"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5918", ",", "8534"}], "}"}], ",", "276"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2144", ",", "2880"}], "}"}], ",", "553"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6693", ",", "6963"}], "}"}], ",", "44"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3436", ",", "3469"}], "}"}], ",", "200"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9941", ",", "7010"}], "}"}], ",", "33"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7085", ",", "4437"}], "}"}], ",", "214"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4984", ",", "5622"}], "}"}], ",", "54"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"10219", ",", "5217"}], "}"}], ",", "768"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2284", ",", "10213"}], "}"}], ",", "288"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7190", ",", "2021"}], "}"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9134", ",", "5497"}], "}"}], ",", "218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4232", ",", "2970"}], "}"}], ",", "32"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8909", ",", "4956"}], "}"}], ",", "296"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9148", ",", "3540"}], "}"}], ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4293", ",", "2466"}], "}"}], ",", "208"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2713", ",", "2478"}], "}"}], ",", "139"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7287", ",", "2274"}], "}"}], ",", "17"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2001", ",", "9996"}], "}"}], ",", "61"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6403", ",", "5965"}], "}"}], ",", "269"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3454", ",", "5152"}], "}"}], ",", "17"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6583", ",", "4185"}], "}"}], ",", "53"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6794", ",", "5478"}], "}"}], ",", "67"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2793", ",", "3988"}], "}"}], ",", "146"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9131", ",", "6391"}], "}"}], ",", "74"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9988", ",", "3571"}], "}"}], ",", "773"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2120", ",", "1603"}], "}"}], ",", "53"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4325", ",", "4048"}], "}"}], ",", "271"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4921", ",", "4350"}], "}"}], ",", "66"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4808", ",", "1220"}], "}"}], ",", "202"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6301", ",", "5482"}], "}"}], ",", "37"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8968", ",", "3817"}], "}"}], ",", "143"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6166", ",", "7346"}], "}"}], ",", "92"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1516", ",", "5933"}], "}"}], ",", "23"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5127", ",", "3504"}], "}"}], ",", "309"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6687", ",", "5855"}], "}"}], ",", "29"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4928", ",", "3815"}], "}"}], ",", "54"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9807", ",", "4374"}], "}"}], ",", "40"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8567", ",", "3069"}], "}"}], ",", "21"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2125", ",", "3509"}], "}"}], ",", "62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9376", ",", "5394"}], "}"}], ",", "40"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1443", ",", "5891"}], "}"}], ",", "51"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4625", ",", "4201"}], "}"}], ",", "57"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6879", ",", "4040"}], "}"}], ",", "186"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8289", ",", "5914"}], "}"}], ",", "105"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6371", ",", "1215"}], "}"}], ",", "258"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7758", ",", "6587"}], "}"}], ",", "111"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4398", ",", "1982"}], "}"}], ",", "85"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2470", ",", "4847"}], "}"}], ",", "67"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2739", ",", "10067"}], "}"}], ",", "52"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2353", ",", "1999"}], "}"}], ",", "19"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6209", ",", "3239"}], "}"}], ",", "24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9169", ",", "2829"}], "}"}], ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3073", ",", "10298"}], "}"}], ",", "193"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6799", ",", "6343"}], "}"}], ",", "198"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2135", ",", "2121"}], "}"}], ",", "174"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4488", ",", "1498"}], "}"}], ",", "47"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2870", ",", "3309"}], "}"}], ",", "244"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2848", ",", "3844"}], "}"}], ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6038", ",", "4190"}], "}"}], ",", "55"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6933", ",", "3717"}], "}"}], ",", "19"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"9545", ",", "4735"}], "}"}], ",", "56"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6145", ",", "3121"}], "}"}], ",", "90"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"688", ",", "668"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10460", ",", "748"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11280", ",", "799"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10526", ",", "1127"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11275", ",", "11010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"703", ",", "715"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1081", ",", "11534"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11366", ",", "1139"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"664", ",", "970"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"576", ",", "249"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"435", ",", "11419"}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.48729118125*^9, 3.487291214546875*^9}, {
  3.487292410375*^9, 3.48729242578125*^9}, {3.487292499375*^9, 
  3.4872925010625*^9}}],

Cell[BoxData[{
 RowBox[{"1", " ", "1", " ", "848445", " ", "846445"}], "\n", 
 RowBox[{"754154", " ", "756411"}], "\n", 
 RowBox[{"80314", " ", "40516", " ", "20135"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dimensiones", "=", 
   RowBox[{"{", 
    RowBox[{"846445", ",", "848445"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"circulos", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"80314", ",", "40516"}], "}"}], ",", "20135"}], "}"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"luces", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"754154", ",", " ", "756411"}], "}"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4872958239375*^9, 3.48729583703125*^9}, {
  3.48729682315625*^9, 3.487296834765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{
    SuperscriptBox["20135", "2"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["20135", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"80314", " ", "-", "754154"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"40516", "-", "756411"}], ")"}], "2"]}], ")"}]}]], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.487296289765625*^9, 3.487296356484375*^9}, {
  3.487296856984375*^9, 3.487296889640625*^9}}],

Cell[BoxData["1.9791389712698334`*^10"], "Output",
 CellChangeTimes->{
  3.48729635740625*^9, {3.487296878125*^9, 3.487296890421875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"20135", "+", "80314", "-", "754154"}], ")"}], "*", 
  RowBox[{"(", 
   RowBox[{"20135", "-", "80314", "+", "754154"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.487297426890625*^9, 3.4872974391875*^9}}],

Cell[BoxData[
 RowBox[{"-", "453654927375"}]], "Output",
 CellChangeTimes->{3.487297439765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Cuadrado", 
  RowBox[{"(", "r", ")"}], "*", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "Cuadrado"}], 
     RowBox[{"(", "r", ")"}]}], "+", 
    RowBox[{"Cuadrado", 
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}]}], "+", 
    RowBox[{"Cuadrado", 
     RowBox[{"(", 
      RowBox[{"yc", "-", "yf"}], ")"}]}]}], ")"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], "/@", "circulos"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Disk", "[", 
          RowBox[{"#", ",", 
           RowBox[{
            RowBox[{"dimensiones", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "*", ".01"}]}], "]"}], "&"}], "/@",
         "luces"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"GridLines", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", 
          RowBox[{"dimensiones", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", 
          RowBox[{"dimensiones", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}]}], ","}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"dimensiones", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"dimensiones", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.487269878796875*^9, 3.487270231078125*^9}, {
   3.4872738099375*^9, 3.487273812578125*^9}, {3.48727889175*^9, 
   3.48727891396875*^9}, {3.4872826700625*^9, 3.4872826736875*^9}, {
   3.487285106984375*^9, 3.4872851101875*^9}, {3.487285177703125*^9, 
   3.487285178875*^9}, {3.487289431953125*^9, 3.48728943371875*^9}, {
   3.487289877671875*^9, 3.4872898843125*^9}, {3.487290825015625*^9, 
   3.487290840375*^9}, 3.4872908833125*^9, {3.487296004859375*^9, 
   3.487296013359375*^9}}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{1314, 4516}, 1135], DiskBox[{8542, 8782}, 2215], 
    DiskBox[{8534, 1552}, 1418], DiskBox[{3333, 7627}, 2458], 
    DiskBox[{7598, 3473}, 689], DiskBox[{3301, 1303}, 1154], 
    DiskBox[{3673, 2868}, 427], DiskBox[{5663, 9665}, 557], 
    DiskBox[{1445, 9839}, 365], DiskBox[{5353, 2177}, 872], 
    DiskBox[{9640, 6300}, 436], DiskBox[{8478, 4279}, 475], 
    DiskBox[{4540, 3058}, 283], DiskBox[{6201, 6757}, 486], 
    DiskBox[{5586, 4966}, 835], DiskBox[{10202, 2157}, 339], 
    DiskBox[{2909, 10054}, 4], DiskBox[{8865, 3308}, 361], 
    DiskBox[{3940, 2529}, 4], DiskBox[{8327, 3447}, 35], 
    DiskBox[{4028, 5007}, 208], DiskBox[{4374, 5266}, 103], 
    DiskBox[{8992, 5988}, 282], DiskBox[{6319, 4168}, 206], 
    DiskBox[{4436, 10116}, 243], DiskBox[{6831, 1531}, 268], 
    DiskBox[{5677, 3795}, 294], DiskBox[{6418, 3566}, 362], 
    DiskBox[{2488, 3687}, 275], DiskBox[{6497, 1926}, 243], 
    DiskBox[{5455, 5818}, 27], DiskBox[{2192, 1836}, 72], 
    DiskBox[{6189, 7803}, 314], DiskBox[{7628, 5326}, 779], 
    DiskBox[{6276, 3934}, 26], DiskBox[{4449, 3549}, 195], 
    DiskBox[{5918, 8534}, 276], DiskBox[{2144, 2880}, 553], 
    DiskBox[{6693, 6963}, 44], DiskBox[{3436, 3469}, 200], 
    DiskBox[{9941, 7010}, 33], DiskBox[{7085, 4437}, 214], 
    DiskBox[{4984, 5622}, 54], DiskBox[{10219, 5217}, 768], 
    DiskBox[{2284, 10213}, 288], DiskBox[{7190, 2021}, 4], 
    DiskBox[{9134, 5497}, 218], DiskBox[{4232, 2970}, 32], 
    DiskBox[{8909, 4956}, 296], DiskBox[{9148, 3540}, 3], 
    DiskBox[{4293, 2466}, 208], DiskBox[{2713, 2478}, 139], 
    DiskBox[{7287, 2274}, 17], DiskBox[{2001, 9996}, 61], 
    DiskBox[{6403, 5965}, 269], DiskBox[{3454, 5152}, 17], 
    DiskBox[{6583, 4185}, 53], DiskBox[{6794, 5478}, 67], 
    DiskBox[{2793, 3988}, 146], DiskBox[{9131, 6391}, 74], 
    DiskBox[{9988, 3571}, 773], DiskBox[{2120, 1603}, 53], 
    DiskBox[{4325, 4048}, 271], DiskBox[{4921, 4350}, 66], 
    DiskBox[{4808, 1220}, 202], DiskBox[{6301, 5482}, 37], 
    DiskBox[{8968, 3817}, 143], DiskBox[{6166, 7346}, 92], 
    DiskBox[{1516, 5933}, 23], DiskBox[{5127, 3504}, 309], 
    DiskBox[{6687, 5855}, 29], DiskBox[{4928, 3815}, 54], 
    DiskBox[{9807, 4374}, 40], DiskBox[{8567, 3069}, 21], 
    DiskBox[{2125, 3509}, 62], DiskBox[{9376, 5394}, 40], 
    DiskBox[{1443, 5891}, 51], DiskBox[{4625, 4201}, 57], 
    DiskBox[{6879, 4040}, 186], DiskBox[{8289, 5914}, 105], 
    DiskBox[{6371, 1215}, 258], DiskBox[{7758, 6587}, 111], 
    DiskBox[{4398, 1982}, 85], DiskBox[{2470, 4847}, 67], 
    DiskBox[{2739, 10067}, 52], DiskBox[{2353, 1999}, 19], 
    DiskBox[{6209, 3239}, 24], DiskBox[{9169, 2829}, 6], 
    DiskBox[{3073, 10298}, 193], DiskBox[{6799, 6343}, 198], 
    DiskBox[{2135, 2121}, 174], DiskBox[{4488, 1498}, 47], 
    DiskBox[{2870, 3309}, 244], DiskBox[{2848, 3844}, 7], 
    DiskBox[{6038, 4190}, 55], DiskBox[{6933, 3717}, 19], 
    DiskBox[{9545, 4735}, 56], DiskBox[{6145, 3121}, 90]}, 
   {RGBColor[1, 0, 0], DiskBox[{688, 668}, 115.45], 
    DiskBox[{10460, 748}, 115.45], DiskBox[{11280, 799}, 115.45], 
    DiskBox[{10526, 1127}, 115.45], DiskBox[{11275, 11010}, 115.45], 
    DiskBox[{703, 715}, 115.45], DiskBox[{1081, 11534}, 115.45], 
    DiskBox[{11366, 1139}, 115.45], DiskBox[{664, 970}, 115.45], 
    DiskBox[{576, 249}, 115.45], DiskBox[{435, 11419}, 115.45]}},
  Frame->True,
  ImageSize->{1002., Automatic},
  PlotRange->{{0, 11448}, {0, 11545}}]], "Output",
 CellChangeTimes->{{3.487296007328125*^9, 3.487296014984375*^9}, 
   3.487296836875*^9, 3.487323017859375*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{DiskBox[{1314, 4516}, 1135], 
   {RGBColor[1, 0, 0], DiskBox[{11275, 11010}, 115.45]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{11270.872158354223`, 11001.741982885298`}, {-732.260350937855, 
     4728.051949174518}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{11280.767568502033`, 11011.637393033106`}, {-989.5410147808816, 
     1225.0767568502015`}}]}},
  Frame->True,
  ImageSize->{548., Automatic},
  PlotRange->{{0, 11448}, {0, 11545}}]], "Input",
 CellChangeTimes->{{3.487295845875*^9, 3.487295856515625*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{250, 250}, 100], 
   {RGBColor[1, 0, 0], DiskBox[{150, 251}, 5.]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{147.23926380368096`, 252.55623721881392`}, {211.3156100886162, 
     509.5432856169053}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{147.92092706203135`, 253.23790047716426`}, {
     147.92092706203135`, -20.109066121336014`}}]}},
  Frame->True,
  ImageSize->{760., Automatic},
  PlotRange->{{0, 500}, {0, 500}}]], "Input",
 CellChangeTimes->{{3.48729092215625*^9, 3.487290977640625*^9}}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{8, 20}, 3], DiskBox[{31, 20}, 8], DiskBox[{56, 20}], 
    DiskBox[{92, 20}, 5], DiskBox[{150, 20}, 10]}, 
   {RGBColor[1, 0, 0], DiskBox[{15, 20}, 0.9], DiskBox[{45, 20}, 0.9], 
    DiskBox[{64, 20}, 0.9], DiskBox[{125, 20}, 0.9]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
    19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
    37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 
    55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 
    73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 
    91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
    107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
     122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 
    136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150,
     151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
    165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179,
     180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 
    194, 195, 196, 197, 198, 199, 200}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
    12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
    30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45}},
  ImageSize->{1225., Automatic},
  PlotRange->{{0, 200}, {0, 45}}]], "Input",
 CellChangeTimes->{{3.48728986746875*^9, 3.4872898736875*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{28, 21}, 21], 
   {RGBColor[1, 0, 0], DiskBox[{28, 96}, 2.]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{28.29268292682927, 
     96.34146341463413}, {-3.41463414634147, -11.463414634146389`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
    19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
    37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 
    55, 56}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
    19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
    37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 
    55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 
    73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 
    91, 92, 93, 94, 95, 96, 97, 98, 99, 100}},
  PlotRange->{{0, 56}, {0, 100}}]], "Input",
 CellChangeTimes->{{3.487289451828125*^9, 3.487289454921875*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{28, 21}, 21], 
   {RGBColor[1, 0, 0], DiskBox[{28, 56}, 1.12]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{27.846198323214807`, 55.53050014455043}, {-11.332755131540907`, 
     4.856895056374626}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{27.68430182133565, 55.6923966464296}, {
     75.76756287944494, -6.9615495808037196`}}]}},
  Frame->True,
  GridLines->CompressedData["
1:eJzlz8WNQgEAQMGPy+K6uOsurnVQAgVA/zeGhC44TPKub3B/3h7hIAjeroQ+
HSFKjDgJkqRI80OGLDnyFChSokyFKjXq/NKgSYs2Hbr06DNgyIgxE6bMmLNg
yR//rFizYcuOPQeOnDhz+ZK/F7WxDmc=
   "],
  PlotRange->{{0, 56}, {0, 56}}]], "Input",
 CellChangeTimes->{{3.487289123015625*^9, 3.48728912978125*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{28, 21}, 10.5], 
   {RGBColor[1, 0, 0], DiskBox[{28, 56}, 1.12]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{27.522405319456496`, 55.692396646429586`}, {
     10.847065625903443`, -4.047412546978933}}]}},
  Frame->True,
  GridLines->CompressedData["
1:eJzlz8WNQgEAQMGPy+K6uOsurnVQAgVA/zeGhC44TPKub3B/3h7hIAjeroQ+
HSFKjDgJkqRI80OGLDnyFChSokyFKjXq/NKgSYs2Hbr06DNgyIgxE6bMmLNg
yR//rFizYcuOPQeOnDhz+ZK/F7WxDmc=
   "],
  PlotRange->{{0, 56}, {0, 56}}]], "Input",
 CellChangeTimes->{{3.487289065625*^9, 3.487289066546875*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{28, 21}, 21], 
   {RGBColor[1, 0, 0], DiskBox[{28, 56}, 1.12]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{28.16999132697312, 55.20670714079212}, {-13.437409655969937`, 
     1.7808615206706833`}}]}},
  Frame->True,
  GridLines->CompressedData["
1:eJzlz8WNQgEAQMGPy+K6uOsurnVQAgVA/zeGhC44TPKub3B/3h7hIAjeroQ+
HSFKjDgJkqRI80OGLDnyFChSokyFKjXq/NKgSYs2Hbr06DNgyIgxE6bMmLNg
yR//rFizYcuOPQeOnDhz+ZK/F7WxDmc=
   "],
  PlotRange->{{0, 56}, {0, 56}}]], "Input",
 CellChangeTimes->{{3.487289047796875*^9, 3.487289049484375*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{5, 6}, 2], 
   {RGBColor[1, 0, 0], DiskBox[{5, 3}, 0.2]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{5.0146627565982405`, 3.0205278592375358`}, {10.351906158357771`,
      8.826979472140753}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.956011730205279, 2.991202346041053}, {-0.14662756598240367`, 
     9.0615835777126}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.48728847615625*^9, 3.48728848415625*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{8, 8}, 7], 
   {RGBColor[1, 0, 0], DiskBox[{1, 1}, 0.32]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.8326105810928017, 1.0176351546689801`}, {15.912113327551316`, 
     1.0176351546689943`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{1.0638912980630235`, 0.9713790112749408}, {1.0176351546689788`, 
     16.004625614339425`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}, {1, 2, 
   3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}},
  PlotRange->{{0, 16}, {0, 16}}]], "Input",
 CellChangeTimes->{{3.4872866266875*^9, 3.487286651109375*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{18, 10}, 10], 
   {RGBColor[1, 0, 0], DiskBox[{18, 30}, 0.6]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{17.90112749349523, 
     29.791847354726798`}, {-1.8733738074588047`, -2.9921942758022624`}}]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{17.90112749349523, 29.895923677363406`}, {
     37.88378143972247, -2.8881179531656542`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
    19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36}, {
    1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
     22, 23, 24, 25, 26, 27, 28, 29, 30}},
  PlotRange->{{0, 36}, {0, 30}}]], "Input",
 CellChangeTimes->{{3.487286063265625*^9, 3.48728607634375*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{15, 10}, 10], 
   {RGBColor[1, 0, 0], DiskBox[{15, 30}, 0.6]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{14.868035190615839`, 
     30.175953079178896`}, {-3.5190615835777095`, -2.90322580645163}}]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{15.21994134897361, 29.824046920821104`}, {
     33.695014662756606`, -2.903225806451644}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
   19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}, {1, 2, 3, 4, 5, 6, 7, 8, 
   9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
   28, 29, 30}},
  PlotRange->{{0, 30}, {0, 30}}]], "Input",
 CellChangeTimes->{{3.487285963171875*^9, 3.4872859709375*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{4.012912482065998, 1.9899569583931136`}], 
   {RGBColor[1, 0, 0], 
    DiskBox[{0.9713055954088952, 1.0043041606886653`}, 0.10000000000000009`]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.7460545193687238, 0.8077474892395986}, {4.975839311334292, 
     3.992826398852224}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5}, {1, 2, 3, 4}},
  PlotRange->{{0, 5}, {0, 4}}]], "Input",
 CellChangeTimes->{{3.4872847855*^9, 3.487284807890625*^9}, {
  3.487284862640625*^9, 3.487284884640625*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{2.9799139167862263`, 2.018651362984217}], 
   {RGBColor[1, 0, 0], DiskBox[{1, 0}, 0.1]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5}, {1, 2, 3, 4, 5}},
  PlotRange->{{0, 5}, {0, 5}}]], "Input",
 CellChangeTimes->{{3.48728476521875*^9, 3.4872847688125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   DiskBox[{3.0200860832137733`, 1.9870875179340022`}, \
{0.9999999999999991, 1.}], 
   {RGBColor[1, 0, 0], 
    DiskBox[{0.3687230989956959, 2.031563845050215}, \
{0.07999999999999985, 0.08000000000000007}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4}, {1, 2, 3, 4}},
  PlotRange->{{0, 4}, {0, 4}}]], "Input",
 CellChangeTimes->{{3.487284743265625*^9, 3.4872847549375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   DiskBox[{12.984830838763378`, 11.187405284413}, \
{4.329395050031614, 4.3194554013214415`}], 
   {RGBColor[1, 0, 0], 
    DiskBox[{3.0383693045563547`, 10.959232613908874`}, 
     0.40000000000000036`]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{1.0311750599520384`, 9.952038369304557}, {19.928057553956833`, 
     19.976019184652273`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{3.1414868105515588`, 13.477218225419675`}, {
     19.978713998498172`, -0.023980815347711487`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
   19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
   19, 20}},
  ImageSize->{853., Automatic},
  PlotRange->{{0, 20}, {0, 20}}]], "Input",
 CellChangeTimes->{{3.487284463109375*^9, 3.48728451546875*^9}, {
  3.487284564671875*^9, 3.4872847029375*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{5.524926686217009, 5.087976539589434}, 2.], 
   {RGBColor[1, 0, 0], DiskBox[{1, 5}, 0.2]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.967741935483871, 5.0146627565981845`}, {10.02932551319648, 
     10.029325513196472`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.9384164222873901, 5.0733137829912}, {
     10., -0.08797653958945162}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.4872843984375*^9, 3.48728443746875*^9}}],

Cell[BoxData[
 GraphicsBox[{DiskBox[{3, 5}], 
   {RGBColor[1, 0, 0], DiskBox[{1, 5}, 0.2]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.487284386609375*^9, 3.4872843891875*^9}}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{2, 1}], DiskBox[{4, 1}], DiskBox[{6, 1}], 
    DiskBox[{1, 3}], DiskBox[{1, 5}], DiskBox[{1, 7}], DiskBox[{7, 3}], 
    DiskBox[{7, 5}], DiskBox[{7, 7}], DiskBox[{3, 7}], DiskBox[{5, 7}]}, 
   {RGBColor[1, 0, 0], DiskBox[{4, 4}, 0.16]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.002619515389653, 3.976424361493123}, {-0.45055664702030107`, 
     0.18336607727569998`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.002619515389653, 3.976424361493123}, {-0.33529796987557337`, 
     0.8120497707924006}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8}, {1, 2, 3, 4, 5, 6, 7, 8}},
  ImageSize->{775., Automatic},
  PlotRange->{{0, 8}, {0, 8}}]], "Input",
 CellChangeTimes->{{3.487283567109375*^9, 3.487283575109375*^9}}],

Cell[BoxData[
 GraphicsBox[{{
    DiskBox[{2.0129124820659974`, 1.045911047345765}, \
{1.0000000000000004`, 1.}], 
    DiskBox[{4.012912482065997, 1.}, {0.9999999999999991, 1.}], 
    DiskBox[{6.012912482065997, 0.9770444763271158}, \
{0.9999999999999991, 1.}], DiskBox[{1, 3}], DiskBox[{1, 5}], DiskBox[{1, 7}], 
    DiskBox[{7, 3}], DiskBox[{7, 5}], DiskBox[{7, 7}], DiskBox[{3, 7}], 
    DiskBox[{5, 7}]}, 
   {RGBColor[1, 0, 0], DiskBox[{4, 4}, 0.16]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.017216642754662, 4.005738880918223}, {-0.7575322812051652, 
     0.4246771879483511}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{14.989956958393112`, 6.301291248206596}, {11.569583931133426`, 
     1.8020086083213727`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.0401721664275465`, 3.93687230989957}, {-0.5509325681492108, 
     0.2869440459110457}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8}, {1, 2, 3, 4, 5, 6, 7, 8}},
  PlotRange->{{0, 8}, {0, 8}}]], "Input",
 CellChangeTimes->{{3.4872834410625*^9, 3.487283449421875*^9}, {
  3.487283480328125*^9, 3.487283508484375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   DiskBox[{7.0774530598464445`, 2.8984627937730454`}, \
{2.9401165571326127`, 2.94011655713261}], 
   {RGBColor[1, 0, 0], 
    DiskBox[{0.9648300117233292, 1.0375146541617823`}, \
{0.20000000000000018`, 0.20000000000000107`}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.011723329425556761`, 0.011723329425556983`}, {10., 
     9.97655334114889}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{872., Automatic},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.487283044671875*^9, 3.487283058296875*^9}, {
  3.487283108171875*^9, 3.48728313565625*^9}, {3.48728360915625*^9, 
  3.48728361840625*^9}, {3.487283738328125*^9, 3.487283804546875*^9}, {
  3.48728426040625*^9, 3.48728429296875*^9}, {3.4872864489375*^9, 
  3.48728645215625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   DiskBox[{3.0080185685446565`, 5.008018568544655}, \
{0.9940325545586397, 0.9940325545586415}], 
   {RGBColor[1, 0, 0], 
    DiskBox[{1.7692307692307692`, 7.895104895104897}, \
{0.19999999999999996`, 0.2839160839160826}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{0.6377287271563856, 4.828731798617705}, {10.024935065477921`, 
     10.030805458835204`}}]}, 
   {GrayLevel[0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{10., 0.}, {0.6573426573426575, 5.1620478287144955`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{734., Automatic},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.487282826921875*^9, 3.4872830155*^9}}],

Cell[BoxData[
 GraphicsBox[{{
    DiskBox[{0.1847507331378302, 9.727272727272727}, \
{2., 1.9999999999999982`}], 
    DiskBox[{8.102823021019827, 4.859053811824753}, \
{2.1057555723394756`, 2.105755572339474}]}, 
   {RGBColor[1, 0, 0], 
    DiskBox[{4.991202346041056, 4.991202346041057}, 0.20000000000000018`]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.9853372434017595`, 4.926686217008797}, {10.087976539589443`, 
     10.02932551319648}}]}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{4.926686217008798, 4.897360703812318}, {
     10.087976539589443`, -0.058651026392961825`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.48728267865625*^9, 3.4872827279375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[
    0.043137254901960784`, 0.043137254901960784`, 0.043137254901960784`], 
    DiskBox[{2.424688605990521, 5.456883488411897}, \
{1.2668619649957957`, 1.2668619649957993`}]}, 
   DiskBox[{8.827185373404598, 4.1869213470019595`}, \
{1.0000000000000018`, 0.9999999999999982}], 
   {RGBColor[1, 0, 0], DiskBox[{2, 2}, 0.2]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{1.9159438067700578`, 1.964134466544003}, {10.280674085107627`, 
     14.160752358421693`}}]}, 
   {RGBColor[1., 0.3333333333333333, 0.5529411764705883], AbsoluteThickness[
    3.52], LineBox[{{-0.42057303075440033`, 6.734367242033979}, {
     3.3806594818773945`, 6.904465667805759}}]}, 
   {RGBColor[1., 0.7333333333333333, 0.8274509803921568], AbsoluteThickness[
    3.52], Opacity[1], Dashing[{}], 
    LineBox[{{1.8692134700195688`, 1.964134466544003}, {-0.3972078623791573, 
     8.202634422734318}}]}, 
   {RGBColor[
    0.043137254901960784`, 0.043137254901960784`, 0.043137254901960784`], 
    AbsoluteThickness[3.52], Opacity[1], Dashing[{}], 
    LineBox[{{2.0561348170215257`, 2.1276906451709134`}, {2.0561348170215266`,
      10.305499576506335`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{453.98749999999995`, Automatic},
  PlotRange->{{0, 10}, {-50, 30}}]], "Input",
 CellChangeTimes->{{3.487278925921875*^9, 3.48727895846875*^9}, {
  3.487279264953125*^9, 3.4872792735625*^9}, {3.48727931675*^9, 
  3.487279457*^9}, {3.48727952515625*^9, 3.48727963025*^9}, {
  3.487279706828125*^9, 3.487279712921875*^9}, {3.48728004034375*^9, 
  3.4872801336875*^9}, {3.48728266575*^9, 3.487282666546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{3, 7}, 2], DiskBox[{6, 4}]}, 
   {RGBColor[1, 0, 0], DiskBox[{2, 2}, 0.2]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{1.935483870967742, 1.9354838709677402`}, {10.117302052785924`, 
     8.475073313782989}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{2.0234604105571847`, 1.906158357771261}, {7.360703812316715, 
     10.058651026392962`}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{1.935483870967742, 1.9941348973607056`}, {11.407624633431084`, 
     4.2228739002932585`}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{2.0234604105571847`, 1.876832844574782}, {0.3225806451612905, 
     10.381231671554255`}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{1.9565217391304341`, 1.920289855072463}, {
     4.4927536231884035`, -4.69202898550725}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{571., Automatic},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.487278631828125*^9, 3.487278655609375*^9}, {
  3.487278880390625*^9, 3.48727888553125*^9}}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{3, 2}], DiskBox[{5, 4}], DiskBox[{6, 6}], 
    DiskBox[{6, 8}], DiskBox[{4, 8}], DiskBox[{3, 6}]}, 
   {RGBColor[1, 0, 0], DiskBox[{5, 7}, 0.2]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], LineBox[{{5.0218340611353725`, 
     6.986899563318778}, {-0.7205240174672483, -0.5349344978165913}}]}, 
   {RGBColor[0., 1., 0.], AbsoluteThickness[1.8000000000000003`], Opacity[1.],
     Dashing[{}], 
    LineBox[{{5.010917030567686, 
     6.997816593886462}, {-0.36026200873362413`, -1.4410480349344965`}}]}, 
   {RGBColor[0., 1., 0.], AbsoluteThickness[1.8000000000000003`], Opacity[1.],
     Dashing[{}], 
    LineBox[{{5.010917030567686, 6.965065502183406}, {
     3.4825327510917035`, -0.8406113537117905}}]}, 
   {RGBColor[0.8, 0., 0.1317616540779736], AbsoluteThickness[
    3.3800000000000003`], Opacity[1.], 
    LineBox[{{5., 7.008733624454148}, {-0.3493449781659397, 
     6.997816593886462}}]}, 
   {RGBColor[0.3333333333333333, 1., 0.3333333333333333], AbsoluteThickness[
    3.3800000000000003`], Opacity[1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{5.010917030567686, 6.965065502183406}, {4.945414847161572, 
     10.163755458515283`}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{4.945414847161572, 6.975982532751091}, {10.131004366812228`, 
     6.965065502183405}}]}, 
   {RGBColor[1., 0.4, 0.45647364003967345`], AbsoluteThickness[3.52], Opacity[
    1.], Dashing[{}], EdgeForm[RGBColor[
    1., 0.4117647058823529, 0.3333333333333333]], 
    LineBox[{{4.847161572052402, 6.85589519650655}, {8.351528384279476, 
     10.818777292576419`}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{935., Automatic},
  PlotRange->{{0, 10}, {0, 10}}]], "Input",
 CellChangeTimes->{{3.487273823484375*^9, 3.487273840109375*^9}, {
  3.487274037109375*^9, 3.487274073296875*^9}, {3.487274152609375*^9, 
  3.487274159765625*^9}, {3.487274834625*^9, 3.4872748421875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.48727374209375*^9, 3.487273759453125*^9}, 
   3.4872738153125*^9}],

Cell[BoxData[
 GraphicsBox[{{DiskBox[{3, 7}, 2], DiskBox[{5, 4}]}, 
   {RGBColor[1, 0, 0], 
    DiskBox[{4., 1.032501107992317}, \
{0.20000000000000018`, 0.19999999999999973`}]}, 
   LineBox[{{4.013886837051263, 1.023784901758015}, {11.294135027330478`, 
    10.64411286748412}}], 
   LineBox[{{4.013886837051263, 1.0400354557541736`}, {3.9976362830551047`, 
    11.147880041365047`}}], 
   {GrayLevel[0.], AbsoluteThickness[0.5], Opacity[1.], Dashing[{}], 
    StyleBox[
     LineBox[{{3.981385729058946, 1.023784901758015}, {5.768946668636432, 
      11.196631703353525`}}],
     FontColor->GrayLevel[0.]]}, 
   {GrayLevel[0.], AbsoluteThickness[0.5], Opacity[1.], Dashing[{}], 
    StyleBox[
     LineBox[{{4.046387945043581, 0.991283793765696}, {-0.9100310237849021, 
      9.99409070763776}}],
     FontColor->GrayLevel[0.]]}, 
   {RGBColor[0., 1., 0.], AbsoluteThickness[1.8000000000000003`], Opacity[1.],
     Dashing[{}], 
    LineBox[{{-0.03250110799231787, 
     11.001625055399618`}, {-1.2675432117003989`, 11.06662727138425}}]}, 
   {RGBColor[0., 1., 0.], AbsoluteThickness[1.8000000000000003`], Opacity[1.],
     Dashing[{}], 
    LineBox[{{0., 10.01034126163392}, {10.01034126163392, 
     9.961589599645439}}]}, 
   {RGBColor[0., 1., 0.], AbsoluteThickness[1.8000000000000003`], Opacity[1.],
     Dashing[{}], 
    LineBox[{{9.977840153641603, 9.945339045649284}, {
     9.977840153641603, -0.7962771458117945}}]}},
  Frame->True,
  GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 
   10}},
  ImageSize->{691., Automatic},
  PlotRange->{{0, 11}, {0, 11}}]], "Input",
 CellChangeTimes->{{3.48727025040625*^9, 3.487270285609375*^9}, {
  3.48727031621875*^9, 3.48727039978125*^9}}]
},
WindowSize->{1912, 1068},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1393, 45, 192, "Input"],
Cell[1941, 67, 170, 4, 92, "Input"],
Cell[2114, 73, 1432, 47, 192, "Input"],
Cell[3549, 122, 137, 3, 72, "Input"],
Cell[3689, 127, 2429, 77, 332, "Input"],
Cell[6121, 206, 2357, 77, 332, "Input"],
Cell[8481, 285, 771, 21, 112, "Input"],
Cell[9255, 308, 1252, 27, 112, "Input"],
Cell[10510, 337, 494, 11, 232, "Input"],
Cell[11007, 350, 813, 21, 112, "Input"],
Cell[11823, 373, 245, 5, 112, "Input"],
Cell[12071, 380, 13763, 430, 232, "Input"],
Cell[25837, 812, 179, 3, 72, "Input"],
Cell[26019, 817, 689, 19, 112, "Input"],
Cell[CellGroupData[{
Cell[26733, 840, 538, 17, 53, "Input"],
Cell[27274, 859, 137, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27448, 866, 253, 6, 31, "Input"],
Cell[27704, 874, 98, 2, 30, "Output"]
}, Open  ]],
Cell[27817, 879, 379, 13, 31, "Input"],
Cell[CellGroupData[{
Cell[28221, 896, 2197, 58, 152, "Input"],
Cell[30421, 956, 3575, 60, 1010, "Output"]
}, Open  ]],
Cell[34011, 1019, 630, 12, 552, InheritFromParent],
Cell[34644, 1033, 619, 12, 771, InheritFromParent],
Cell[35266, 1047, 1578, 23, 302, InheritFromParent],
Cell[36847, 1072, 1066, 17, 447, InheritFromParent],
Cell[37916, 1091, 770, 16, 377, InheritFromParent],
Cell[38689, 1109, 598, 13, 377, InheritFromParent],
Cell[39290, 1124, 597, 13, 377, InheritFromParent],
Cell[39890, 1139, 655, 13, 378, InheritFromParent],
Cell[40548, 1154, 710, 13, 377, InheritFromParent],
Cell[41261, 1169, 871, 15, 325, InheritFromParent],
Cell[42135, 1186, 842, 15, 378, InheritFromParent],
Cell[42980, 1203, 575, 11, 316, InheritFromParent],
Cell[43558, 1216, 295, 6, 386, InheritFromParent],
Cell[43856, 1224, 403, 10, 386, InheritFromParent],
Cell[44262, 1236, 969, 20, 871, InheritFromParent],
Cell[45234, 1258, 671, 13, 378, InheritFromParent],
Cell[45908, 1273, 300, 7, 378, InheritFromParent],
Cell[46211, 1282, 853, 15, 801, InheritFromParent],
Cell[47067, 1299, 1223, 23, 386, InheritFromParent],
Cell[48293, 1324, 899, 19, 890, InheritFromParent],
Cell[49195, 1345, 808, 17, 752, InheritFromParent],
Cell[50006, 1364, 885, 18, 378, InheritFromParent],
Cell[50894, 1384, 1836, 35, 3455, InheritFromParent],
Cell[52733, 1421, 1797, 34, 589, InheritFromParent],
Cell[54533, 1457, 2218, 41, 953, InheritFromParent],
Cell[56754, 1500, 115, 2, 31, InheritFromParent],
Cell[56872, 1504, 1718, 37, 708, InheritFromParent]
}
]
*)

(* End of internal cache information *)

